home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / auto_inv / inv_0400.prg < prev    next >
Text File  |  1991-08-07  |  4KB  |  182 lines
  1. *--------------------------------------------------------------------------
  2. * Program KEV_0400 - Add/Edit Parts item Kevins Subaru Invoicing
  3. *                       (c) 1989 Systematics Consulting, Inc.
  4. *--------------------------------------------------------------------------
  5.  
  6. SET TALK OFF
  7. SET ECHO OFF
  8. SET STATUS OFF
  9. CLOSE ALL
  10.  
  11. ANSWER = "2"
  12.  
  13. SELECT 1
  14. USE KEV_MSTR INDEX KEV_IDX1
  15. SELECT 2
  16. USE KEV_LBOR INDEX KEV_IDX2
  17. SELECT 3
  18. USE KEV_PART INDEX KEV_IDX3
  19.  
  20.  
  21.   CLEAR
  22.  
  23. DO WHILE .T.
  24.  
  25. SELECT 1
  26.  
  27.    @ 24, 10 SAY  "Systematics Consulting, Inc. (303)674-8445 - Program KEV_0400"
  28.    @ 1,  1 SAY  DATE()
  29.    @ 1, 71 SAY  TIME()
  30.    @ 2,  5 TO  5,75 DOUBLE
  31.    @ 3, 15 SAY  "             KEVIN'S SUBARU               "
  32.    @ 4, 15 SAY  "           Add/Edit Parts Line            "
  33.  
  34. @  8, 12  SAY "ENTER 1 TO LOCATE BY INVOICE NUMBER, 2 TO LOCATE BY NAME:" GET ANSWER
  35. @  6, 5 TO 9, 75
  36. READ
  37. @  8, 1
  38.  
  39. IF ANSWER = "1"
  40.    INV_IN = 0
  41.    @  8, 1
  42.    @  8, 12  SAY "ENTER INVOICE NUMBER TO LOCATE:" GET INV_IN  PICTURE "#####"
  43.    @  6, 5 TO 9, 75
  44.    READ
  45.    LOCATE FOR INV_NO = INV_IN
  46.     IF EOF()
  47.     ANSWER = " "
  48.     @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
  49.     CLOSE ALL
  50.     READ
  51.     RETURN TO MASTER
  52.     ENDIF
  53.    EXIT
  54. ENDIF
  55.  
  56.  
  57. IF ANSWER = "2"
  58.    NAME_IN = SPACE(30)
  59.    @  8, 1
  60.    @  8, 12  SAY "ENTER LAST NAME TO LOCATE:" GET NAME_IN
  61.    @  6, 5 TO 9, 75
  62.    READ
  63.    LOCATE FOR UPPER(LASTNAME) = UPPER(NAME_IN)
  64.     IF EOF()
  65.     ANSWER = " "
  66.     @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
  67.     CLOSE ALL
  68.     READ
  69.     RETURN TO MASTER
  70.     ENDIF
  71.    EXIT
  72. ENDIF
  73.  
  74. ENDDO
  75.  
  76. ANSWER = " "
  77. @  8, 1
  78. @  8, 12  SAY "ENTER 1 TO ADD, 2 TO EDIT:" GET ANSWER
  79. @  6, 5 TO 9, 75
  80. READ
  81.  
  82. IF ANSWER <> "1" .AND. ANSWER <> "2"
  83.   CLOSE ALL
  84.   RETURN TO MASTER
  85. ENDIF
  86.  
  87.    INVNO = INV_NO
  88.    NAME = TRIM(FIRSTNAME) + " " + TRIM(LASTNAME)
  89.  
  90. *------------ ADD LINE ITEM------------------
  91.  
  92. IF ANSWER = "1"
  93.   SELECT 3
  94.      DO WHILE .T.
  95.           ANSWER = "2"
  96.           X_P_DESC = SPACE(50)
  97.           X_P_COST = 0
  98.           X_P_QTY  = 0
  99.  
  100.           @  8, 1
  101.           @  8, 12  SAY "ENTER 1 TO ADD, 2 TO QUIT:" GET ANSWER
  102.           @  6, 5 TO 9, 75
  103.           @ 10,  5 SAY "Inv. #:"
  104.           @ 10, 13 SAY INVNO PICTURE "#####"
  105.           @ 10, 20 SAY "ADD PARTS ITEMS FOR: " + NAME
  106.  
  107.           @ 13,  8  SAY "Quantity:"
  108.           @ 13, 22  GET  X_P_QTY PICTURE "###"
  109.           @ 14,  8  SAY "Description:"
  110.           @ 14, 22  GET  X_P_DESC
  111.           @ 15,  8  SAY "Cost:"
  112.           @ 15, 22  GET  X_P_COST  PICTURE "####.##"
  113.           @ 11,  5  TO 17, 76
  114.  
  115.           READ
  116.           IF ANSWER = "2"
  117.            EXIT
  118.            ENDIF
  119.  
  120.           APPEND BLANK
  121.           REPLACE KEV_PART->PART_QTY  WITH X_P_QTY
  122.           REPLACE KEV_PART->PART_DESC WITH X_P_DESC
  123.           REPLACE KEV_PART->PART_COST WITH X_P_COST
  124.           REPLACE KEV_PART->INV_NO    WITH INVNO
  125.           REINDEX
  126.  
  127.      ENDDO
  128.  
  129.   CLOSE ALL
  130.   RETURN TO MASTER
  131.  
  132. ENDIF
  133.  
  134. *----------- EDIT LINE ITEMS ------------------
  135.  
  136. IF ANSWER = "2"
  137.   SELECT 3
  138.     LOCATE FOR INV_NO = INVNO
  139.     IF EOF()
  140.     ANSWER = " "
  141.     @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
  142.     CLOSE ALL
  143.     READ
  144.     RETURN TO MASTER
  145.     ENDIF
  146.      DO WHILE INV_NO = INVNO .AND. .NOT. EOF()
  147.  
  148.           ANSWER = "1"
  149.  
  150.           @  8, 1
  151.           @  8, 12  SAY "ENTER 1 TO EDIT, 2 TO QUIT:" GET ANSWER
  152.           @  6, 5 TO 9, 75
  153.           @ 10,  5 SAY "Inv. #:"
  154.           @ 10, 13 SAY INVNO PICTURE "#####"
  155.           @ 10, 20 SAY "EDIT PART ITEMS FOR: " + NAME
  156.           @ 13,  8  SAY "Quantity:"
  157.           @ 13, 22  GET  KEV_PART->PART_QTY PICTURE "###"
  158.           @ 14,  8  SAY "Description:"
  159.           @ 14, 22  GET  KEV_PART->PART_DESC
  160.           @ 15,  8  SAY "Cost:"
  161.           @ 15, 22  GET  KEV_PART->PART_COST PICTURE "####.##"
  162.           @ 11,  5  TO 17, 76
  163.  
  164.           READ
  165.           IF ANSWER = "2"
  166.            EXIT
  167.           ENDIF
  168.  
  169.           SKIP
  170.  
  171.      ENDDO
  172.  
  173.   REINDEX
  174.   CLOSE ALL
  175.   RETURN TO MASTER
  176.  
  177. ENDIF
  178. REINDEX
  179. CLOSE ALL
  180. RETURN TO MASTER
  181. *---------- END OF PROGRAM ---------------- 
  182.